home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Sieve Benchmarks / Sieve.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1986-11-05  |  604 b   |  27 lines  |  [TEXT/EDIT]
  1. program Skeleton(input,output);
  2.  
  3. const
  4.     size = 8190;
  5.  
  6. var  iter,i,count,k,prime : Integer;
  7.      flags                :Array [0..size] of boolean;
  8.  
  9.  
  10. begin
  11.     writeln('SIEVE-10 iterations');
  12.     for iter:=1 to 10 do begin
  13.         count := 0;
  14.     for i := 1 to size do flags[i] := true;
  15.     for i := 1 to size do
  16.         if flags[i] then begin
  17.                            prime := i + I + 3;
  18.                    k := i + prime;
  19.                    while k <= size do begin
  20.                        flags[k] := false;
  21.                    k := k + prime
  22.                    end;
  23.                    count := count + 1
  24.         end;
  25.     end;
  26.     writeln(count,' primes...end program');
  27. end.